BBS in a Box 15/BBS in a box XV-2.iso/Files II/Multimedia/A-P/Net Game.sit/Net Game folder/Net Game/SR114M.DXR/00356_drag pad slider area.ls

Text File | 1994-10-24 | 798 b | 26 lines

on mouseDown
  global pad_total_pages, pad_slider_page, pad_page_cast, pad_current_page, pad_new_page, pad_section, pad_section_cast
  puppetSprite(35, 1)
  set slider_top to the top of sprite 34
  repeat while not mouseUp
    set the locV of sprite 35 to constrainV(34, the mouseV)
    set pad_slider_page to (the locV of sprite 35 - slider_top) * pad_total_pages / the height of sprite 34
    put pad_slider_page into field pad_page_cast
    if pad_slider_page > 0 then
      put getAt(pad_section, pad_slider_page) into field pad_section_cast
    end if
    updateStage()
    if the mouseUp then
      exit repeat
    end if
  end repeat
  puppetSprite(35, 0)
end

on mouseUp
  if pad_slider_page <> pad_current_page then
    set pad_new_page to pad_slider_page
    pad_goto_page()
  end if
end